home *** CD-ROM | disk | FTP | other *** search
/ H4CK3R 14 / hacker14.iso / programacao / visual / perl.exe / {app} / Webroot / cgi-bin / monty.cgi < prev    next >
Encoding:
Text File  |  2003-01-11  |  2.5 KB  |  84 lines

  1. #!perl
  2.  
  3. use CGI;
  4. use CGI::Carp qw/fatalsToBrowser/;
  5.  
  6. $query = new CGI;
  7.  
  8. print $query->header;
  9. print $query->start_html("Example CGI.pm Form");
  10. print "<H1> Example CGI.pm Form</H1>\n";
  11. &print_prompt($query);
  12. &do_work($query);
  13. &print_tail;
  14. print $query->end_html;
  15.  
  16. sub print_prompt {
  17.    my($query) = @_;
  18.  
  19.    print $query->start_form;
  20.    print "<EM>What's your name?</EM><BR>";
  21.    print $query->textfield('name');
  22.    print $query->checkbox('Not my real name');
  23.  
  24.    print "<P><EM>Where can you find English Sparrows?</EM><BR>";
  25.    print $query->checkbox_group(
  26.                                 -name=>'Sparrow locations',
  27.                                 -Values=>[England,France,Spain,Asia,Hoboken],
  28.                                 -linebreak=>'yes',
  29.                                 -defaults=>[England,Asia]);
  30.  
  31.    print "<P><EM>How far can they fly?</EM><BR>",
  32.    $query->radio_group(
  33.                        -name=>'how far',
  34.                        -Values=>['10 ft','1 mile','10 miles','real far'],
  35.                        -default=>'1 mile');
  36.  
  37.    print "<P><EM>What's your favorite color?</EM>  ";
  38.    print $query->popup_menu(-name=>'Color',
  39.                             -Values=>['black','brown','red','yellow'],
  40.                             -default=>'red');
  41.  
  42.    print $query->hidden('Reference','Monty Python and the Holy Grail');
  43.  
  44.    print "<P><EM>What have you got there?</EM><BR>";
  45.    print $query->scrolling_list(
  46.                                 -name=>'possessions',
  47.                                 -Values=>['A Coconut','A Grail','An Icon',
  48.                                           'A Sword','A Ticket'],
  49.                                 -size=>5,
  50.                                 -multiple=>'true');
  51.  
  52.    print "<P><EM>Any parting comments?</EM><BR>";
  53.    print $query->textarea(-name=>'Comments',
  54.                           -rows=>10,
  55.                           -columns=>50);
  56.  
  57.    print "<P>",$query->reset;
  58.    print $query->submit('Action','Shout');
  59.    print $query->submit('Action','Scream');
  60.    print $query->endform;
  61.    print "<HR>\n";
  62.          }
  63.  
  64. sub do_work {
  65.     my($query) = @_;
  66.     my(@values,$key);
  67.  
  68.     print "<H2>Here are the current settings in this form</H2>";
  69.  
  70.     foreach $key ($query->param) {
  71.         print "<STRONG>$key</STRONG> -> ";
  72.         @values = $query->param($key);
  73.         print join(", ",@values),"<BR>\n";
  74.     }
  75. }
  76.  
  77. sub print_tail {
  78.     print <<END;
  79. <HR>
  80. <ADDRESS>Lincoln D. Stein</ADDRESS><BR>
  81. <A HREF="/">Home Page</A>
  82. END
  83.     ;
  84. }